home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / docs / complex / julia3c.bat < prev    next >
Encoding:
DOS Batch File  |  2000-07-08  |  1.7 KB  |  56 lines
  1. echo off
  2.  
  3. kt echo "3次方程式のジュリア集合を定数項について表示します。パラメータを入力して下さい。\n"
  4.  
  5. kt input reMin "実部最小 = " "-2"
  6. if "%reMin%" == "" goto exit
  7. kt input imMax "虚部最大 = " "2"
  8. if "%imMax%" == "" goto exit
  9. kt input scLen "辺の長さ = " "4"
  10. if "%scLen%" == "" goto exit
  11. kt input scSize "画面サイズ(0…256×256ドット, 1…512×512ドット) = " "0"
  12. if "%scSize%" == "" goto exit
  13. kt input mxCnt "回数制限(1～65535) = " "256"
  14. if "%mxCnt%" == "" goto exit
  15. kt input rot_f_limit "収束半径(収束したと判断する|f(z)|の上限) = " "0.01"
  16. if "%rot_f_limit%" == "" goto exit
  17. kt input Re_A "2次の係数の実部 = " "0.0"
  18. if "%Re_A%" == "" goto exit
  19. kt input Im_A "2次の係数の虚部 = " "0.0"
  20. if "%Im_A%" == "" goto exit
  21. kt input Re_B "1次の係数の実部 = " "-1.0"
  22. if "%Re_B%" == "" goto exit
  23. kt input Im_B "1次の係数の虚部 = " "0.0"
  24. if "%Im_B%" == "" goto exit
  25. kt input Re_Z "Newton法の初期値の実部 = " "0.0"
  26. if "%Re_Z%" == "" goto exit
  27. kt input Im_Z "Newton法の初期値の虚部 = " "0.0"
  28. if "%Im_Z%" == "" goto exit
  29.  
  30. kt .machine
  31. kt .select - MC68000 %machine%||if errorlevel 1 set type=000||goto run
  32. kt .select - FPCP %machine%||if errorlevel 1 set type=881||goto run
  33. kt .select - MC68030 %machine%||if errorlevel 1 set type=020||goto run
  34. kt .select - MC68040 %machine%||if errorlevel 1 set type=040||goto run
  35. kt .select - MC68060 %machine%||if errorlevel 1 set type=040||goto run
  36. set type=000
  37.  
  38. :run
  39. %type%\julia3c %reMin% %imMax% %scLen% %scSize% %mxCnt% %rot_f_limit% %Re_A% %Im_A% %Re_B% %Im_B% %Re_Z% %Im_Z%
  40.  
  41. :exit
  42. set reMin=
  43. set imMax=
  44. set scLen=
  45. set scSize=
  46. set mxCnt=
  47. set rot_f_limit=
  48. set Re_A=
  49. set Im_A=
  50. set Re_B=
  51. set Im_B=
  52. set Re_Z=
  53. set Im_Z=
  54. set type=
  55. set machine=
  56.